home *** CD-ROM | disk | FTP | other *** search
/ Dynamic HTML Construction Kit / Dynamic HTML Construction Kit.iso / source_code / dhtmlunl / dhtml.exe / CD Content / Chap20 / dun20_3.txt < prev    next >
Encoding:
Text File  |  1997-12-18  |  4.0 KB  |  144 lines
  1. <html><head><title>Trading Card Database Editor</title></head>
  2.  
  3. <body
  4.  
  5. bgcolor="ffffff" text="000000" link="000080" language="VBS" onload="Init">
  6.  
  7.  
  8.  
  9. <object classid="clsid:BD96C556-65A3-11D0-983A-00C04FC29E33" 
  10.  
  11.         id="ADC" height="1" width="1">
  12.  
  13. </object>
  14.  
  15.  
  16.  
  17. <h1 align="center">Trading Card Database Editor</h1>
  18.  
  19.  
  20.  
  21. <p align="center"><br>
  22.  
  23. <br>
  24.  
  25. </p>
  26.  
  27. <div align="center"><center>
  28.  
  29.  
  30.  
  31. <table border="0" cellpadding="5">
  32.  
  33.   <tr>
  34.  
  35.     <td align="right">CardID:</td>
  36.  
  37.     <td><input type="text" name="CardID" size="20" datasrc="#ADC"
  38.  
  39.          datafld="CardID"></td>
  40.  
  41.   </tr>
  42.  
  43.   <tr>
  44.  
  45.     <td align="right">Year:</td>
  46.  
  47.     <td><input type="text" name="YearFld" size="20" datasrc="#ADC"
  48.  
  49.          datafld="year"></td>
  50.  
  51.   </tr>
  52.  
  53.   <tr>
  54.  
  55.     <td align="right">Issuer:</td>
  56.  
  57.     <td><input type="text" name="Issuer" size="20" datasrc="#ADC"
  58.  
  59.          datafld="Issuer"></td>
  60.  
  61.   </tr>
  62.  
  63.   <tr>
  64.  
  65.     <td align="right">Set Name:</td>
  66.  
  67.     <td><input type="text" name="SetName" size="20" datasrc="#ADC"
  68.  
  69.          datafld="SetName"></td>
  70.  
  71.   </tr>
  72.  
  73.   <tr>
  74.  
  75.     <td align="right">Card Number:</td>
  76.  
  77.     <td><input type="text" name="CardNumber" size="20" datasrc="#ADC"
  78.  
  79.          datafld="CardNumber"></td>
  80.  
  81.   </tr>
  82.  
  83.   <tr>
  84.  
  85.     <td align="right">Description:</td>
  86.  
  87.     <td><input type="text" name="Description" size="50" datasrc="#ADC"
  88.  
  89.          datafld="Description"></td>
  90.  
  91.   </tr>
  92.  
  93.   <tr>
  94.  
  95.     <td align="right">Grade:</td>
  96.  
  97.     <td><input type="text" name="Grade" size="20" datasrc="#ADC"
  98.  
  99.          datafld="Grade"></td>
  100.  
  101.   </tr>
  102.  
  103.   <tr>
  104.  
  105.     <td align="right">Value:</td>
  106.  
  107.     <td><input type="text" name="ValueFld" size="20" datasrc="#ADC"
  108.  
  109.          datafld="CardValue"></td>
  110.  
  111.   </tr>
  112.  
  113. </table>
  114.  
  115. </center></div>
  116.  
  117.  
  118.  
  119. <p align="center"><input type="BUTTON" name="First" value="First"
  120.  
  121. onclick="MoveFirst"> <input type="BUTTON" name="Prev" value="Prev"
  122.  
  123. onclick="MovePrev"> <input type="BUTTON" name="Next" value="Next"
  124.  
  125. onclick="MoveNext"> <input type="BUTTON" name="Last" value="Last"
  126.  
  127. onclick="MoveLast"> <br>
  128.  
  129. <br>
  130.  
  131. <input type="BUTTON" name="Run" value="Requery" onclick="Requery">
  132.  
  133. <input type="BUTTON" name="Update" value="Save Changes" onclick="Update">
  134.  
  135. <input type="BUTTON" name="Cancel" value="Cancel Changes" onclick="Cancel"> </p>
  136.  
  137.  
  138.  
  139. <p>SQL UPDATE:<br>
  140.  
  141. <input type="text" name="SQL" size="100"></p>
  142.  
  143.  
  144.  
  145. <script language="VBScript" onload="Init"><!--
  146.  
  147.  
  148.  
  149. SUB MoveFirst
  150.  
  151.     ADC.Recordset.MoveFirst
  152.  
  153. END SUB
  154.  
  155.  
  156.  
  157. SUB MoveNext
  158.  
  159.   On Error Resume Next
  160.  
  161.   ADC.Recordset.MoveNext
  162.  
  163.   IF ERR.Number <> 0 THEN
  164.  
  165.     ADC.Recordset.MoveLast  'If already at end of recordset stay at end.
  166.  
  167.   END IF
  168.  
  169. END SUB
  170.  
  171.  
  172.  
  173. SUB MovePrev
  174.  
  175.   On Error Resume Next
  176.  
  177.   ADC.Recordset.MovePrevious
  178.  
  179.   IF ERR.Number <> 0 THEN
  180.  
  181.     ADC.Recordset.MoveFirst  'If already at start of recordset stay at top.
  182.  
  183.   END IF
  184.  
  185. END SUB
  186.  
  187.  
  188.  
  189. SUB MoveLast
  190.  
  191.   ADC.Recordset.MoveLast
  192.  
  193. END SUB
  194.  
  195.  
  196.  
  197. 'Submits edits made and pull a clean copy of the new data.
  198.  
  199. SUB Update
  200.  
  201.    ssql = "Update Cards Set "
  202.  
  203.    ssql = ssql + "Year = " + yearfld.value + ", "
  204.  
  205.    ssql = ssql + "Issuer = '" + issuer.value + "', "
  206.  
  207.    ssql = ssql + "SetName = '" + setname.value + "', "
  208.  
  209.    ssql = ssql + "CardNumber = " + cardnumber.value + ", "
  210.  
  211.    ssql = ssql + "Description = '" + description.value + "', "
  212.  
  213.    ssql = ssql + "Grade = '" + grade.value + "', "
  214.  
  215.    ssql = ssql + "CardValue = " + valuefld.value + " "
  216.  
  217.    ssql = ssql + "WHERE CardID = " + CardID.Value
  218.  
  219.  
  220.  
  221.    SQL.value = ssql
  222.  
  223.  
  224.  
  225.    ADC.SQL = ssql
  226.  
  227.    ADC.Refresh
  228.  
  229.  
  230.  
  231.     ADC.SQL = "Select * from Cards"
  232.  
  233.     ADC.Refresh
  234.  
  235.  
  236.  
  237. END SUB
  238.  
  239.  
  240.  
  241. 'Cancel edits and restores original values.
  242.  
  243. SUB Cancel
  244.  
  245.   ADC.CancelUpdate
  246.  
  247. END SUB
  248.  
  249.  
  250.  
  251. SUB Requery
  252.  
  253.   ADC.Server = "http://<%=Request.ServerVariables("SERVER_NAME")%>"
  254.  
  255.   ADC.Connect = "DSN=Cards"
  256.  
  257.   ADC.SQL = "Select * from Cards"
  258.  
  259.   ADC.Refresh
  260.  
  261.  
  262.  
  263. END SUB
  264.  
  265.  
  266.  
  267. SUB Init
  268.  
  269.   ADC.Server = "http://<%=Request.ServerVariables("SERVER_NAME")%>"
  270.  
  271.   ADC.Connect = "DSN=Cards"
  272.  
  273.   ADC.SQL = "Select * from Cards"
  274.  
  275.   ADC.Refresh
  276.  
  277.  
  278.  
  279. END SUB
  280.  
  281.  
  282.  
  283. --></script>
  284.  
  285. </body></html>
  286.  
  287.